home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / e / AEPD09.lha / EPD09 / Amiga_E-Programme / ESEE / GoldED / ARexx / MakeProcFolders.ged < prev   
Text File  |  1994-08-18  |  1KB  |  55 lines
  1. /* MakeProcFolders.ged - by Leon Woestenberg 1993, fully public domain.
  2. *  ~~~~~~~~~~~~~~~~~~~
  3. *
  4. * Description
  5. * ~~~~~~~~~~~
  6. * ESEE ARexx script.
  7. *
  8. * Function
  9. * ~~~~~~~~
  10. * Can be called from GoldEDs menu to automatically make PROC folders. Each
  11. * PROC entry of the current source will be encapsulated inbetween folder
  12. * markers.
  13. *
  14. * GoldED Settings
  15. * ~~~~~~~~~~~~~~~
  16. * It's needed to set the folder begin marker to '/* FOLD' and the folder
  17. * end marker to '/* FEND'. This can be done in ESEEs Configuration/Misc
  18. * window.
  19. *
  20. */ */ */
  21.  
  22. options results
  23. if (left(address(), 6) ~= "GOLDED") then address 'GOLDED.1'
  24.  
  25. 'LOCK CURRENT'
  26. 'FIND STRING=PROC FIRST QUIET'
  27. do while (rc==0)
  28.   'QUERY NAME WORD VAR TESTPROC'
  29.   if (TESTPROC='PROC') then
  30.   do
  31.     'NEXT'
  32.     'QUERY NAME WORD VAR PROCNAME'
  33.     parse var PROCNAME PROCNAME '('
  34.     'INSERT LINE'
  35.     'FIRST'
  36.     'TEXT T="/** FOLDER"'
  37.     'CODE SET 32'
  38.     'CODE SET 34'
  39.     'TEXT T='||PROCNAME
  40.     'CODE SET 34'
  41.     'CODE SET 32'
  42.     'TEXT T= */'
  43.     'FIND STRING=ENDPROC NEXT'
  44.     'GOTO EOL'
  45.     'RIGHT'
  46.     'CR'
  47.     'TEXT T="/** FEND **/"'
  48.     'UP'
  49.     'FOLD OPEN=FALSE'
  50.   end
  51.   'FIND STRING=PROC NEXT QUIET'
  52. end
  53. 'UNLOCK'
  54.  
  55.